home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / asm / Tandem2.68.lha / Tandem / Teaching / 19.asm < prev    next >
Assembly Source File  |  2000-04-02  |  352b  |  27 lines

  1. * 19.asm    NARG, conditional assembly     version 0.00   1.9.97
  2.  
  3. * sum of 0 to 4 things to register \1
  4. sum: macro
  5.  moveq #0,\1
  6.  IFGE NARG-2
  7.  add.l #\2,\1
  8.  IFGE NARG-3
  9.  add.l #\3,\1
  10.  IFGE NARG-4
  11.  add.l #\4,\1
  12.  IFGE NARG-5
  13.  add.l #\5,\1
  14.  ENDC
  15.  ENDC
  16.  ENDC
  17.  ENDC
  18.  ENDM
  19.  
  20. * do some sums
  21.  sum d0,4,5
  22.  sum d1
  23.  sum d2,5,6,7
  24.  sum d3,-1,2,0
  25.  sum d4,1,2,3,4
  26.  rts
  27.